home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
bipl.zip
/
PROGS.ZIP
/
PAGINATE.ICN
< prev
next >
Wrap
Text File
|
1992-11-26
|
825b
|
32 lines
############################################################################
#
# File: paginate.icn
#
# Subject: Program to insert formfeeds
#
# Author: Paul Abrahams
#
# Date: September 28, 1992
#
##########################################################################
#
# This program processes a document text file, inserting formfeeds
# at appropriate places.
#
############################################################################
procedure main()
local j, k, line, eof
while /eof do {
line := list(66, "")
every k := 1 to 66 do
(line[k] := read()) | (eof := 0)
every k := 66 to 0 by -1 do
if k = 0 | *trim(line[k]) > 0 then break
every write(line[j := 1 to k])
if k > 0 then
write("\f")
}
end